<% Dim ID ID=LaoYRequest(request("id")) If ID="" then Call Alert("不正确的ID","Index.asp") end if set rsclass=server.createobject("adodb.recordset") sql="select * from Yao_Class where id="&id rsclass.open sql,conn,1,1 if rsclass.eof and rsclass.bof then Call Alert("不正确的ID","Index.asp") else if rsclass("Link")=1 then Response.Redirect ""&laoy(rsclass("Url"))&"" End if %> 三肖必中→<%=rsclass("ClassName")%>
请直接点击进入>>>本站主论坛<<<本期④肖⑥码已免费大公开

<% randomize c=Int((10 * Rnd) + 1) 'response.write(c) 'response.end() %>
(QQ:838410838)您现在的位置：首页 >> <%If rsclass("TopID")>0 then Response.Write(""&Classlist(rsclass("TopID"))&" >> ") End if%><%=rsclass("ClassName")%> >> 列表
<%=rsclass("ClassName")%>
    <%Call ShowArticle(ID,52,0,"·",100,"no","newid()",0,1)%>
<%Call ShowAD(3)%>
本类热门
    <%Call ShowArticle(ID,10,0,"·",100,"no","newid()",0,0)%>
月度热点
    <%Call ShowArticle(0,15,0,"·",100,"no","newid()",0,0)%>
关于我们 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明 - 人才招聘 - 帮助中心
  • © 2010 版权所有 All Rights Reserved.
    • <% rsclass.close set rsclass=nothing end if%>